home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / tutorial / trac.zip / EX-IV-2.OBJ < prev    next >
Text File  |  1990-01-26  |  2KB  |  56 lines
  1. 0001          0 0001          0
  2. 0002          0    I          0
  3. 0003          0    J          0
  4. 0004     000039 STRT     LDFIVE X is value being tested
  5. 0005     030044          ST   X   start with 5
  6. 0006     000040          LD ONE J is the highest index
  7. 0007     030003          ST   J   in table of primes
  8. 0008     400049          RD  XF Enter final X to test
  9. 0009     000041 SETI     LDZERO I is index for prime table
  10. 0010     030002          ST   I
  11. 0011     000044 COMR     LD   X Find whole part of X/T(I)
  12. 0012    2160054         2DV   T
  13. 0013    2150054         2MU   T Multiply it by T(I) and
  14. 0014     020044          SU   X subtract X
  15. 0015     250032          BZINCX Is the remainder zero?
  16. 0016    2000054         2LD   T Find T(I)*T(I)
  17. 0017    2150054         2MU   T
  18. 0018     030043          STTSQR Save it
  19. 0019     000044          LD   X Find X-T(I)*T(I)
  20. 0020     020043          SUTSQR
  21. 0021     240026          BNAPPT If negative, found a prime
  22. 0022     000002          LD   I Else, increment I
  23. 0023     010040          AD ONE
  24. 0024     030002          ST   I
  25. 0025     260011          BUCOMR   and test with next prime
  26. 0026     000044 APPT     LD   X Put new prime in the table
  27. 0027    3030054         3ST   T X->T(J)
  28. 0028     000003          LD   J Increment J
  29. 0029     010040          AD ONE
  30. 0030     030003          ST   J
  31. 0031     410044          PC   X Print it
  32. 0032     000044 INCX     LD   X Try next odd number
  33. 0033     010042          AD TWO
  34. 0034     030044          ST   X
  35. 0035     020049          SU  XF Does it exceed final value?
  36. 0036     240009          BNSETI If not, keep going
  37. 0037     250009          BZSETI
  38. 0038     500038          HT*   
  39. 0039          5 FIVE          5
  40. 0040          1  ONE          1
  41. 0041          0 ZERO          0
  42. 0042          2  TWO          2
  43. 0043          0 TSQR          0
  44. 0044          0    X          0
  45. 0045          0               0
  46. 0046          0               0
  47. 0047          0               0
  48. 0048          0               0
  49. 0049          0   XF          0
  50. 0050          0               0
  51. 0051          0               0
  52. 0052          0               0
  53. 0053          0               0
  54. 0054          3    T          3
  55. 9999     000004          ENSTRT
  56.